home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr50 / wbb13.zip / SAMPLE3.BAS < prev    next >
BASIC Source File  |  1993-06-04  |  515b  |  38 lines
  1.  
  2. rem
  3. rem This program displays memory available along with some sparkle.
  4. rem
  5.  
  6.   rem windows size 35,13,47,18
  7.  
  8.   basey=12
  9.   basex=34
  10.  
  11.   ot=0
  12. 100
  13.   a$=inkey$
  14.   if a$<>"" then stop
  15.   t=freemem
  16.   if t<>ot then
  17.     color 0,7
  18.     locate basey+1,basex+2
  19.     print freemem
  20.     ot=t
  21.   end if
  22. 200
  23.   x=rnd
  24.   x=int(x*13)
  25.   y=rnd
  26.   y=int(y*5)
  27.   x=x+1
  28.   y=y+1
  29.   if y=1 and (x>2 or x<11) then goto 200
  30.   c=rnd
  31.   c=int(c*16)
  32.   color c,0
  33.   locate basey+y,basex+x
  34.   print chr$(219);
  35.   goto 100
  36.  
  37.  
  38.